#!/usr/bin/perl -w
use 5.010; 



while (1) {
print "enter number from 1 to 100\n";
chomp ($hum = <STDIN>);

print "number is $hum\n";


  given ($hum) {
  when ($_%3 == 0) {
  print "Fizz \n";
  continue;
  } 
  when ($_%5 == 0) {
  print "Bin \n";
  continue; 
  }
  when ($_%7 == 0) {
  print "Sausage \n";
  continue;
  } 

  }
}

